home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 2 / AACD 2.iso / AACD / Online / CoolBrowser / AWeb-II / Install_Buttons < prev    next >
Encoding:
AmigaDOS Script File  |  1997-02-04  |  552 b   |  27 lines
  1. .key button
  2. .bra {
  3. .ket }
  4.  
  5. if "{button}" eq ""
  6.   set button "Buttons/"
  7.   set button `requestfile Buttons title "Select AWeb button set" noicons`
  8.   if "$button" eq "Buttons/"
  9.     quit
  10.   endif
  11. else
  12.   set button "{button}"
  13. endif
  14.  
  15. copy "$button" AWeb-II:images/def_buttons
  16. if not warn
  17.   copy "$button.info" AWeb-II:images/def_buttons.info
  18.   if not warn
  19.     requestchoice >NIL: "AWeb buttons" "Button set $button installed." "OK"
  20.     quit
  21.   endif
  22. endif
  23.  
  24. requestchoice >NIL: "AWeb buttons" "Couldn't install new buttons.*NYou have to quit AWeb first" "OK"
  25.  
  26.  
  27.